perm filename MUCODE.UNF[SCH,LSP] blob
sn#688865 filedate 1982-11-14 generic text, type T, neo UTF8
'(THIS IS THE UNFASL FOR ((DSK (SCH LSP)) MUCODE LSP))
'(ASSEMBLED BY FASLAP /392)
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117)
;COMPILED ON NOVEMBER 14, 1982, AT 8:00 PM
(COMMENT **FASL** 0. (LAP |DEFRACK MACRO| SUBR))
(COMMENT **FASL** 56. (LAP |FETCH MACRO| SUBR))
(COMMENT **FASL** 94. (LAP |ASSIGN MACRO| SUBR))
(COMMENT **FASL** 137. (LAP |SAVE MACRO| SUBR))
(COMMENT **FASL** 175. (LAP |RESTORE MACRO| SUBR))
(COMMENT **FASL** 213. (LAP |GET-STATE MACRO| SUBR))
(COMMENT **FASL** 251. (LAP |SET-STATE MACRO| SUBR))
(COMMENT **FASL** 294. (LAP |SAVE-AFTER-ASSIGN MACRO| SUBR))
(COMMENT **FASL** 337. (LAP |ASSIGN-AFTER-RESTORE MACRO| SUBR))
(COMMENT **FASL** 380. (LAP |RESTORE-ASSIGN-SAVE MACRO| SUBR))
(COMMENT **FASL** 423. (LAP |SIMPLE-REGISTER FETCH| SUBR))
(COMMENT **FASL** 427. (LAP |SIMPLE-REGISTER ASSIGN| SUBR))
(COMMENT **FASL** 435. (LAP |PUSH-OPTIMIZER-ASSIGN-PREPARATION MACRO| SUBR))
(COMMENT **FASL** 482. (LAP |PUSH-OPTIMIZER FETCH| SUBR))
(COMMENT **FASL** 486. (LAP |PUSH-OPTIMIZER ASSIGN| SUBR))
(COMMENT **FASL** 504. (LAP |PUSH-OPTIMIZER SAVE| SUBR))
(COMMENT **FASL** 532. (LAP |PUSH-OPTIMIZER RESTORE| SUBR))
(COMMENT **FASL** 557. (LAP |PUSH-OPTIMIZER GET-STATE| SUBR))
(COMMENT **FASL** 571. (LAP |PUSH-OPTIMIZER SET-STATE| SUBR))
(COMMENT **FASL** 579. (LAP |PUSH-OPTIMIZER SAVE-AFTER-ASSIGN| SUBR))
(COMMENT **FASL** 626. (LAP |PUSH-OPTIMIZER ASSIGN-AFTER-RESTORE| SUBR))
(COMMENT **FASL** 671. (LAP |PUSH-OPTIMIZER RESTORE-ASSIGN-SAVE| SUBR))
(COMMENT **FASL** 716. (LAP |PUSH-COUNTER-ASSIGN-PREPARATION MACRO| SUBR))
(COMMENT **FASL** 770. (LAP |PUSH-COUNTER FETCH| SUBR))
(COMMENT **FASL** 774. (LAP |PUSH-COUNTER ASSIGN| SUBR))
(COMMENT **FASL** 792. (LAP |PUSH-COUNTER SAVE| SUBR))
(COMMENT **FASL** 796. (LAP |PUSH-COUNTER RESTORE| SUBR))
(COMMENT **FASL** 828. (LAP |PUSH-COUNTER GET-STATE| SUBR))
(COMMENT **FASL** 842. (LAP |PUSH-COUNTER SET-STATE| SUBR))
(COMMENT **FASL** 850. (LAP |READ-REG MACRO| SUBR))
(COMMENT **FASL** 878. (LAP |LOAD-REG MACRO| SUBR))
(COMMENT **FASL** 915. (LAP |READ-STACK MACRO| SUBR))
(COMMENT **FASL** 943. (LAP |LOAD-STACK MACRO| SUBR))
(COMMENT **FASL** 980. (LAP |FREE-RACK? MACRO| SUBR))
(COMMENT **FASL** 1012. (LAP |FREE-RACK! MACRO| SUBR))
(COMMENT **FASL** 1040. (LAP |MARK-SAVED! MACRO| SUBR))
(COMMENT **FASL** 1068. (LAP |PUSH-RACK MACRO| SUBR))
(COMMENT **FASL** 1144. (LAP |POP-RACK MACRO| SUBR))
(COMMENT **FASL** 1206. (LAP |POP-RACK-STACK MACRO| SUBR))
(COMMENT **FASL** 1247. (LAP |PUSH-COUNT MACRO| SUBR))
(COMMENT **FASL** 1296. (LAP |POP-COUNT MACRO| SUBR))
(COMMENT **FASL** 1358. (LAP |INCREMENT-COUNT MACRO| SUBR))
(COMMENT **FASL** 1399. (LAP |DECREMENT-COUNT MACRO| SUBR))
(COMMENT **FASL** 1440. (LAP RESET-RACKS SUBR))
'*HISTORY*
'*SAVED-HISTORY*
'*CURRENT-ENTRY*
'*CURRENT-BRANCH*
(COMMENT **FASL** 1457. (LAP |[SCH,LSP]MUCODE.LSP←1| LSUBR))
(COMMENT **FASL** 1462. (LAP CALLING-CONTINUATION SUBR))
(COMMENT **FASL** 1528. (LAP CONTINUATION-ENVIRONMENT SUBR))
(COMMENT **FASL** 1573. (LAP REGISTER-SAVED? SUBR))
(COMMENT **FASL** 1596. (LAP CONT-NAME SUBR))
(COMMENT **FASL** 1600. (LAP |HISTORY-BRANCH MACRO| SUBR))
(COMMENT **FASL** 1627. (LAP |SET-HISTORY-BRANCH MACRO| SUBR))
(COMMENT **FASL** 1660. (LAP |DEEPER-HISTORY MACRO| SUBR))
(COMMENT **FASL** 1687. (LAP |SET-DEEPER-HISTORY MACRO| SUBR))
(COMMENT **FASL** 1720. (LAP |SHALLOWER-HISTORY MACRO| SUBR))
(COMMENT **FASL** 1747. (LAP |SET-SHALLOWER-HISTORY MACRO| SUBR))
(COMMENT **FASL** 1780. (LAP |HISTORY-ENTRY MACRO| SUBR))
(COMMENT **FASL** 1807. (LAP |SET-HISTORY-ENTRY MACRO| SUBR))
(COMMENT **FASL** 1840. (LAP |HISTORY-MARK MACRO| SUBR))
(COMMENT **FASL** 1867. (LAP |SET-HISTORY-MARK MACRO| SUBR))
(COMMENT **FASL** 1895. (LAP |CLEAR-HISTORY-MARK MACRO| SUBR))
(COMMENT **FASL** 1923. (LAP |ENTRY-EXPRESSION MACRO| SUBR))
(COMMENT **FASL** 1950. (LAP |SET-ENTRY-EXPRESSION MACRO| SUBR))
(COMMENT **FASL** 1983. (LAP |NEXT-ENTRY MACRO| SUBR))
(COMMENT **FASL** 2010. (LAP |SET-NEXT-ENTRY MACRO| SUBR))
(COMMENT **FASL** 2043. (LAP |ENTRY-MARK MACRO| SUBR))
(COMMENT **FASL** 2070. (LAP |SET-ENTRY-MARK MACRO| SUBR))
(COMMENT **FASL** 2098. (LAP |CLEAR-ENTRY-MARK MACRO| SUBR))
(COMMENT **FASL** 2126. (LAP |ENTRY-ENVIRONMENT MACRO| SUBR))
(COMMENT **FASL** 2153. (LAP |SET-ENTRY-ENVIRONMENT MACRO| SUBR))
(COMMENT **FASL** 2186. (LAP |BRANCH-EXPRESSION MACRO| SUBR))
(COMMENT **FASL** 2213. (LAP |SET-BRANCH-EXPRESSION MACRO| SUBR))
(COMMENT **FASL** 2246. (LAP |NEXT-BRANCH MACRO| SUBR))
(COMMENT **FASL** 2273. (LAP |SET-NEXT-BRANCH MACRO| SUBR))
(COMMENT **FASL** 2306. (LAP |BRANCH-MARK MACRO| SUBR))
(COMMENT **FASL** 2333. (LAP |SET-BRANCH-MARK MACRO| SUBR))
(COMMENT **FASL** 2361. (LAP |CLEAR-BRANCH-MARK MACRO| SUBR))
(COMMENT **FASL** 2389. (LAP |BRANCH-VALUE MACRO| SUBR))
(COMMENT **FASL** 2416. (LAP |SET-BRANCH-VALUE MACRO| SUBR))
(COMMENT **FASL** 2449. (LAP |SAVE-HISTORY! MACRO| SUBR))
(COMMENT **FASL** 2458. (LAP |REINSTALL-HISTORY! MACRO| SUBR))
(COMMENT **FASL** 2467. (LAP |RECORD-EVALUATION-IN-HISTORY MACRO| SUBR))
(COMMENT **FASL** 2476. (LAP |SET-HISTORY-TO-NEXT-REDUCTION MACRO| SUBR))
(COMMENT **FASL** 2485. (LAP |PUSH-HISTORY MACRO| SUBR))
(COMMENT **FASL** 2494. (LAP |POP-HISTORY MACRO| SUBR))
(COMMENT **FASL** 2503. (LAP |RECLAIM-HISTORY! MACRO| SUBR))
(COMMENT **** *NOPRINT* Undeclared - taken as SPECIAL in function MERGE-HISTORY)
(COMMENT **FASL** 2512. (LAP MERGE-HISTORY SUBR))
(COMMENT **FASL** 2588. (LAP FIND-CALLER SUBR))
(COMMENT **FASL** 2605. (LAP CHECK-AND-SAVE-HISTORY SUBR))
(COMMENT **FASL** 2637. (LAP |INITIALIZE MACRO| SUBR))
(COMMENT **FASL** 2735. (LAP RESHAPE-AT-INTERRUPT SUBR))
(COMMENT **FASL** 2765. (LAP SETUP-HISTORY SUBR))
(COMMENT **FASL** 2821. (LAP CREATE-HISTORY SUBR))
(COMMENT **FASL** 2869. (LAP MAKE-CIRCLE SUBR))
(COMMENT **FASL** 2900. (LAP LINK-BACKWARDS SUBR))
(COMMENT **FASL** 2920. (LAP THE-SAVED-HISTORY SUBR))
(COMMENT **FASL** 2923. (LAP REVERSE-BRANCH-LIST SUBR))
(COMMENT **FASL** 2929. (LAP REVERSE-BRANCH-1 SUBR))
(COMMENT **FASL** 2972. (LAP REVERSE-ENTRY-LIST SUBR))
(COMMENT **FASL** 2978. (LAP REVERSE-ENTRY-1 SUBR))
(COMMENT **FASL** 3021. (LAP EXTRACT-BACKBONE SUBR))
'TOTAL-TIME
'BTIME
'BGTIME
'OPC
'*SYSTEM-ANALYZE*
'*TRACEABLE-MICROCODE*
(COMMENT **FASL** 3059. (LAP |GOTO MACRO| SUBR))
(COMMENT **FASL** 3158. (LAP |DISPATCH MACRO| SUBR))
(COMMENT **FASL** 3273. (LAP |CONTINUE-EVALUATING-EXP MACRO| SUBR))
(COMMENT **FASL** 3282. (LAP |EVAL-DISPATCH MACRO| SUBR))
(COMMENT **FASL** 3291. (LAP |EVAL-EXP-RESULT-TO MACRO| SUBR))
(COMMENT **FASL** 3320. (LAP |SETUP-CONTINUATION MACRO| SUBR))
(COMMENT **FASL** 3361. (LAP |POPJ MACRO| SUBR))
(COMMENT **FASL** 3370. (LAP |CONTINUE MACRO| SUBR))
(COMMENT **FASL** 3391. (LAP |DEFCONT MACRO| SUBR))
(COMMENT **FASL** 3481. (LAP |DEFENTRY MACRO| SUBR))
(COMMENT **FASL** 3571. (LAP |DEFDISPATCH MACRO| SUBR))
(COMMENT **FASL** 3666. (LAP |DEFCONT-WITH-FORCED-VAL MACRO| SUBR))
(COMMENT **FASL** 3769. (LAP |LEXICAL-UNCOMPILED EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 3840. (LAP |LEXICAL-FORMAL EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 3910. (LAP |LEXICAL-AUXILIARY EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 3979. (LAP |GLOBAL EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 4048. (LAP |ASSIGN-UNCOMPILED EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 4144. (LAP |ASSIGN-FORMAL EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 4236. (LAP |ASSIGN-AUXILIARY EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 4329. (LAP |ASSIGN-GLOBAL EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 4422. (LAP ASSIGN-RETURN SUBR))
(COMMENT **FASL** 4479. (LAP |QUOTED EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 4519. (LAP |DELAYED EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 4563. (LAP |PROCEDURE-DEFINITION EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 4606. (LAP |THE-ENVIRONMENT EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 4643. (LAP |THE-ARGUMENTS EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 4680. (LAP |IF-THEN-ELSE EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 4756. (LAP IF-THEN-ELSE-RETURN-FORCE-RETURN SUBR))
(COMMENT **FASL** 4780. (LAP IF-THEN-ELSE-RETURN SUBR))
(COMMENT **FASL** 5013. (LAP |UNLESS EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 5089. (LAP UNLESS-DECIDE-FORCE-RETURN SUBR))
(COMMENT **FASL** 5113. (LAP UNLESS-DECIDE SUBR))
(COMMENT **FASL** 5321. (LAP |SEQUENCE EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 5342. (LAP EVAL-SEQUENCE SUBR))
(COMMENT **FASL** 5432. (LAP EVAL-SEQUENCE-RETURN SUBR))
(COMMENT **FASL** 5481. (LAP |CONTROL-BINDER EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 5541. (LAP |DYNAMIC-WIND EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 5617. (LAP DYNAMIC-BODY SUBR))
(COMMENT **FASL** 5713. (LAP AFTER-DYNAMIC-BODY SUBR))
(COMMENT **FASL** 5808. (LAP AFTER-DYNAMIC-UNWIND SUBR))
(COMMENT **FASL** 5863. (LAP |COMBINATION EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 5940. (LAP EVAL-COMB-1 SUBR))
(COMMENT **FASL** 6126. (LAP EVAL-COMB-3 SUBR))
(COMMENT **FASL** 6320. (LAP INTERNAL-APPLY-FORCE-RETURN SUBR))
(COMMENT **FASL** 6344. (LAP INTERNAL-APPLY SUBR))
(COMMENT **FASL** 6500. (LAP INTERNAL-APPLY-DISPATCH SUBR))
(COMMENT **FASL** 6527. (LAP |NO-OPERANDS EXPRESSION-CLASS| SUBR))
(COMMENT **FASL** 6574. (LAP EVAL-NO-OPERANDS-FORCE-RETURN SUBR))
(COMMENT **FASL** 6598. (LAP EVAL-NO-OPERANDS SUBR))
'*DEBUG*
(COMMENT **FASL** 6754. (LAP |WITH-CHECKARGS-COMPOUND MACRO| SUBR))
(COMMENT **FASL** 6792. (LAP |*PROCEDURE* PROCEDURE-CLASS| SUBR))
(COMMENT **FASL** 7022. (LAP INTERRUPT-RETURN SUBR))
(COMMENT **FASL** 7071. (LAP SETUP-INTERRUPT-HANDLER SUBR))
(COMMENT **FASL** 7118. (LAP |*EVALUATOR* PROCEDURE-CLASS| SUBR))
(COMMENT **FASL** 7155. (LAP |*CONTROL-POINT* PROCEDURE-CLASS| SUBR))
(COMMENT **FASL** 7156. (LAP |WITH-CHECKARGS-FIXED MACRO| SUBR))
(COMMENT **FASL** 7194. (LAP |WITH-CHECKARGS-VARIABLE MACRO| SUBR))
'*LISP-GUARD*
(COMMENT **FASL** 7232. (LAP |LISP-GUARD MACRO| SUBR))
(COMMENT **FASL** 7260. (LAP ANY-DELAYED? SUBR))
(COMMENT **FASL** 7282. (LAP |DEFPRIMITIVE-UNDELAYED MACRO| SUBR))
(COMMENT **** SUBR-FORCE-LOOP Undeclared - taken as SPECIAL in function SUBR-FORCE-LOOP)
(COMMENT **FASL** 7420. (LAP SUBR-FORCE-LOOP SUBR))
(COMMENT **** SUBR Undeclared - taken as SPECIAL in function |SUBR PROCEDURE-CLASS|)
(COMMENT **FASL** 7504. (LAP |SUBR PROCEDURE-CLASS| SUBR))
(COMMENT **** LSUBR-FORCE-LOOP Undeclared - taken as SPECIAL in function LSUBR-FORCE-LOOP)
(COMMENT **FASL** 7717. (LAP LSUBR-FORCE-LOOP SUBR))
(COMMENT **** LSUBR Undeclared - taken as SPECIAL in function |LSUBR PROCEDURE-CLASS|)
(COMMENT **FASL** 7801. (LAP |LSUBR PROCEDURE-CLASS| SUBR))
(COMMENT **** EXPR-FORCE-LOOP Undeclared - taken as SPECIAL in function EXPR-FORCE-LOOP)
(COMMENT **FASL** 8016. (LAP EXPR-FORCE-LOOP SUBR))
(COMMENT **** EXPR Undeclared - taken as SPECIAL in function |EXPR PROCEDURE-CLASS|)
(COMMENT **FASL** 8100. (LAP |EXPR PROCEDURE-CLASS| SUBR))
(COMMENT **FASL** 8188. (LAP |UNFORCED-SUBR PROCEDURE-CLASS| SUBR))
(COMMENT **FASL** 8319. (LAP |UNFORCED-LSUBR PROCEDURE-CLASS| SUBR))
(COMMENT **FASL** 8452. (LAP |NULL-CDR MACRO| SUBR))
(COMMENT **** BUT-1-FORCED-SUBR-FORCE-LOOP
Undeclared - taken as SPECIAL in function BUT-1-FORCED-SUBR-FORCE-LOOP)
(COMMENT **FASL** 8480. (LAP BUT-1-FORCED-SUBR-FORCE-LOOP SUBR))
(COMMENT **** BUT-1-FORCED-SUBR Undeclared - taken as SPECIAL in function |BUT-1-FORCED-SUBR PROCEDURE-CLASS|)
(COMMENT **FASL** 8565. (LAP |BUT-1-FORCED-SUBR PROCEDURE-CLASS| SUBR))
(COMMENT **FASL** 8780. (LAP FORCE-EXP SUBR))
(COMMENT **FASL** 8933. (LAP UPDATE-DELAYED SUBR))
(COMMENT **FASL** 9036. (LAP DYNAMIC-THROW SUBR))
(COMMENT **FASL** 9077. (LAP UNWIND-LOOP SUBR))
(COMMENT **FASL** 9153. (LAP DO-THROW SUBR))
(COMMENT **FASL** 9260. (LAP WIND-LOOP SUBR))
(COMMENT **FASL** 9402. (LAP WIND-LOOP-RETURN SUBR))
(COMMENT **FASL** 9450. (LAP FORCE-INTERRUPT-IF-FROM-LISP SUBR))
(COMMENT **FASL** 9475. (LAP UNCONTINUABLE SUBR))
(COMMENT **FASL** 9478. (LAP BUG-SCHEME-ERROR LSUBR))
(COMMENT **FASL** 9492. (LAP PRIMITIVE-ERROR-TRAMPOLINE LSUBR))
(COMMENT **FASL** 9534. (LAP SCH-ERROR LSUBR))
(COMMENT **FASL** 9557. (LAP SCH-PDL-OVERFLOW SUBR))
(COMMENT **FASL** 9575. (LAP SCH-GC-LOSSAGE SUBR))
(COMMENT **FASL** 9586. (LAP SCH-GC-OVERFLOW SUBR))
'*MAX-RECURSION-DEPTH*
(COMMENT **FASL** 9597. (LAP CHECK-RECURSION-DEPTH SUBR))
(COMMENT **FASL** 9636. (LAP IMMEDIATE-INTERRUPT SUBR))
(COMMENT **FASL** 9638. (LAP EVAL-ERROR SUBR))
(COMMENT **FASL** 9718. (LAP DO-EVAL SUBR))
(COMMENT **FASL** 9762. (LAP VALUE-ERROR SUBR))
(COMMENT **FASL** 9863. (LAP DO-CONTINUE SUBR))
(COMMENT **FASL** 9937. (LAP APPLY-ERROR SUBR))
(COMMENT **FASL** 9949. (LAP SETUP-APPLY-RETRY SUBR))
(COMMENT **FASL** 10041. (LAP DO-APPLY SUBR))
(COMMENT **FASL** 10064. (LAP SCH-↑B-HANDLER SUBR))
(COMMENT **FASL** 10069. (LAP SCH-↑G-HANDLER SUBR))
(COMMENT **FASL** 10077. (LAP SCH-↑U-HANDLER SUBR))
(COMMENT **FASL** 10085. (LAP SCH-↑X-HANDLER SUBR))
(COMMENT **FASL** 10109. (LAP ENTER-INTERRUPT SUBR))
(COMMENT **FASL** 10132. (LAP ENTER-PRIORITY-INTERRUPT SUBR))
(COMMENT **FASL** 10149. (LAP SET-INTERRUPTS-ENABLED SUBR))
(COMMENT **FASL** 10166. (LAP SCHAPPLY SUBR))
(COMMENT **FASL** 10215. (LAP DONE SUBR))
(COMMENT **FASL** 10220. (LAP RUN SUBR))
(COMMENT **FASL** 10254. (LAP RUN-SCHEME SUBR))
(COMMENT **FASL** 10277. (LAP SPIN-THE-WHEELS SUBR))
(COMMENT **FASL** 10299. (LAP MAIN-LOOP SUBR))
(COMMENT **FASL** 10312. (LAP SCHEME-TO-LISP SUBR))
(COMMENT **FASL** 10316. (LAP CONTINUE-SCHEME SUBR))
(COMMENT **FASL** 10318. (LAP GET-SYSTEM-VALUE SUBR))
(COMMENT **FASL** 10346. (LAP SET-SYSTEM-VALUE SUBR))
(COMMENT **FASL** 10383. (LAP |[SCH,LSP]MUCODE.LSP←2| LSUBR))
(COMMENT **FASL** 10388. (LAP ENTER-LISP-SYSTEM SUBR))
(COMMENT **FASL** 10391. (LAP |[SCH,LSP]MUCODE.LSP←3| LSUBR))
(COMMENT **FASL** 10396. (LAP ENTER-SCHEME-SYSTEM SUBR))
(COMMENT **FASL** 10503. (LAP SETUP-LEXICAL-ADDRESS SUBR))
(COMMENT **FASL** 10632. (LAP GET-FORMAL-VCELL SUBR))
(COMMENT **FASL** 10653. (LAP GET-AUXILIARY-VCELL SUBR))
(COMMENT **FASL** 10680. (LAP GET-GLOBAL-VCELL SUBR))
(COMMENT **FASL** 10690. (LAP NTH-FRAME SUBR))
(COMMENT **FASL** 10717. (LAP LOCAL-DEFINE! SUBR))
(COMMENT **FASL** 10806. (LAP ADD-AUX-VARIABLE SUBR))
(COMMENT **FASL** 10862. (LAP WARN-PARENT-ENVIRONMENTS SUBR))
(COMMENT **FASL** 10911. (LAP MAKE-AUX-VARIABLE-DANGEROUS SUBR))
(COMMENT **FASL** 10921. (LAP MAKE-FORMAL-DANGEROUS SUBR))
(COMMENT **FASL** 10938. (LAP ADD-FLAG SUBR))
(COMMENT **FASL** 10978. (LAP WARN-GLOBAL-ENVIRONMENT SUBR))
(COMMENT **FASL** 11005. (LAP RELATIVE-LEXICAL-ACCESS SUBR))
(COMMENT **FASL** 11100. (LAP LOCATE-AUXILIARY-PATHNAME SUBR))
(COMMENT **FASL** 11122. (LAP RELATIVE-LEXICAL-ASSIGN SUBR))
(COMMENT **FASL** 11227. (LAP UNCOMPILE-LEXICAL SUBR))
(COMMENT **FASL** 11278. (LAP COMPILE-FORMAL SUBR))
(COMMENT **FASL** 11363. (LAP COMPILE-AUXILIARY SUBR))
(COMMENT **FASL** 11453. (LAP COMPILE-GLOBAL SUBR))
(COMMENT **FASL** 11502. (LAP MAKE-CONTROL-POINT SUBR))
(COMMENT **FASL** 11610. (LAP RESTORE-CONTROL-POINT SUBR))
(COMMENT **FASL** 11637. (LAP CONTROL-POINT-CONT SUBR))
(COMMENT **FASL** 11641. (LAP CONTROL-POINT-DELAYED-OBJECT SUBR))
(COMMENT **FASL** 11645. (LAP CONTROL-POINT-ARGL SUBR))
(COMMENT **FASL** 11649. (LAP CONTROL-POINT-ENV SUBR))
(COMMENT **FASL** 11653. (LAP CONTROL-POINT-VCELL SUBR))
(COMMENT **FASL** 11657. (LAP CONTROL-POINT-UNEV SUBR))
(COMMENT **FASL** 11661. (LAP CONTROL-POINT-WIND-FORMS SUBR))
(COMMENT **FASL** 11663. (LAP EXPRAPPLY SUBR))
(COMMENT **FASL** 11727. (LAP SUBRAPPLY SUBR))
(COMMENT **FASL** 11809. (LAP LSUBRAPPLY SUBR))
(COMMENT **** (CONCAT SYNTAX)
have been used but remain undefined in this file)
(COMMENT **FASL** TOTAL = 11895. WORDS)